home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / PROBLEMS / BENCHMARK / BUBBLESORT / bubbletest / perl / source < prev    next >
Text File  |  1992-05-15  |  740b  |  36 lines
  1. #!/l/bin/perl
  2. $\ = "\n";        # set output record separator
  3.  
  4. # pseudo ramdom
  5. $pseudoramdom = 123456;
  6. for ($count = 0; $count < 1000; $count = $count + 1) {
  7.     $pseudoramdom = ($pseudoramdom + 234567) % 567 + 345;
  8.     $a[$count] = $pseudoramdom;
  9.     print (($a[$count]));
  10. }
  11.  
  12. system('time');
  13. &bubblesort(*a, 1000);
  14. system('time');
  15.  
  16. for ($count = 0; $count < 1000; $count = $count + 1) {
  17.     print (($a[$count]));
  18. }
  19.  
  20.  
  21. sub bubblesort {
  22.     local(*a, $len, $flag, $count, $temp) = @_;
  23.     $flag = 1;
  24.     while ($flag) {
  25.     $flag = 0;
  26.     for ($count = 0; $count < $len - 1; $count = $count + 1) {
  27.         if ($a[$count] gt $a[$count + 1]) {    #???
  28.         $temp = $a[$count];
  29.         $a[$count] = $a[$count + 1];
  30.         $a[$count + 1] = $temp;
  31.         $flag = 1;
  32.         }
  33.     }
  34.     }
  35. }
  36.